ggplot(data = cars) +
aes(x = speed) +
aes(y = dist) +
geom_point(color = 'darkslateblue',
size = 4,
alpha = .8) +
theme_bw(base_size = 18) +
scale_x_continuous(limits = c(0,25)) +
geom_smooth() +
labs(y = "stopping distance") +
labs(title = 'A ggplot for the rest of us') +
labs(subtitle = 'Explicitly showing the R workflow') +
theme(plot.title.position = "plot")